﻿Public Class Writer

    Public Sub writeHtml()
        Dim meinBuch As HtmlWriter = New HtmlWriter("testbuch")

        meinBuch.writeTitle("das ist ein TestBuch")
        meinBuch.writeText("erste Seite")
        meinBuch.nextPage()
        meinBuch.writeTitle("das ist ein TestBuch")
        meinBuch.writeText("zweite Seite")
        meinBuch.nextPage()
        meinBuch.writeTitle("das ist ein TestBuchas")
        meinBuch.writeText("dritte Seite")
        meinBuch.nextPage()
        meinBuch.writeTitle("das ist ein TestBuchasd")
        meinBuch.writeText("dritte Seite und so")
        meinBuch.finishBook()
        System.Windows.Forms.MessageBox.Show("Book created !")

    End Sub

    Public Sub writeString()
        Dim newString As String = "blabla"
        Dim objWriter As New System.IO.StreamWriter("D:\test.html")
        objWriter.Write(newString)
        objWriter.Close()
        objWriter.Dispose()
        System.Windows.Forms.MessageBox.Show("Stuff written !")
    End Sub

End Class